knitr::include_graphics("Datacomic_chicago_crimes.jpg")

chic_crime <- read.csv("Crimes_-_2001_to_Present.csv",
                           stringsAsFactors = TRUE)

Let’s Map the crime incidents. Zoom in to check the primary types…

crime_clean_2021  %>% filter(crime_clean_2021$Longitude > -89) %>%
  leaflet() %>%
   addProviderTiles(providers$CartoDB.DarkMatter, group = "Dark") %>%
  addProviderTiles(providers$Esri.WorldGrayCanvas, group = "Grey") %>%
  addLayersControl(baseGroups = c("Dark", "Grey")) %>%
  addMarkers(label = crime_clean_2021$`Primary Type`, clusterOptions = markerClusterOptions())